!======Programa que calcula o volume de um prisma dado 3 vetores=======

PROGRAM exec03

!======================================================================

IMPLICIT NONE

!==============================Variáveis===============================

      REAL(4), DIMENSION(3) :: v1, v2, v3
      REAL(4) :: vol

!===========================Leitura dos dados==========================

      WRITE(*,*) 'Entre com o primeiro vetor, no formato: x, y, z'
      READ(*,*) v1 
      WRITE(*,*) 'Entre com o segundo vetor, no formato: x, y, z'
      READ(*,*) v2 
      WRITE(*,*) 'Entre com o terceiro vetor, no formato: x, y, z'
      READ(*,*) v3

!=====================Calcula o volume do prisma=======================

      !Calcula o volume por produto misto (determinante da matriz
      !com os vetores)
      vol = (v1(1)*v2(2)*v3(3) + (v1(2)*v2(3)*v3(1)) + &
      &(v1(3)*v3(2)*v2(1)) - (v1(3)*v2(2)*v3(1)) - (v2(3)*v3(2)*v1(1))&
      & - (v3(3)*v2(1)*v1(2)))
      WRITE(*,*) 'O volume do prisma é:', ABS(vol), 'unidades de volume'

!======================================================================

END PROGRAM exec03
